GetMainIncrement[200, 1, 6425.710707359227, 1] = -1.697240666965246*^-10
 
GetMainIncrement[200, 0.9, 5000., 1] = 0.00533746592753192
 
GetMainIncrement[200, 0.9, 7000., 1] = 0.0007402897235613937
 
GetMainIncrement[200, 0.95, 6200., 1] = 0.0008631153463383933
 
GetMainIncrement[200, 0.95, 6500., 1] = 0.0003477957920080782
 
GetMainIncrement[200, 0.95, 6500.000068384026, 1] = 0.0003477956813405723
 
GetMainIncrement[200, 0.95, 6702.473856708227, 1] = 0.000028978323412240842
 
GetMainIncrement[200, 0.95, 6702.4738776435715, 1] = 0.0000289782909988861
 
GetMainIncrement[200, 0.95, 6720.877342966543, 1] = 1.0773616281865872*^-6
 
GetMainIncrement[200, 0.95, 6720.877347086063, 1] = 1.0773548548252557*^-6
 
GetMainIncrement[200, 0.95, 6721.5879711546695, 1] = 3.4931976741813062*^-9
 
GetMainIncrement[200, 0.95, 6721.587971389636, 1] = 3.4934122963381584*^-9
 
GetMainIncrement[200, 0.95, 6721.5902827644195, 1] = 1.0752642537210227*^-12
 
GetMainIncrement[200, 0.95, 6721.590282768542, 1] = 1.0642871946155846*^-12
 
GetMainIncrement[200, 0.95, 6721.59028347619, 1] = 5.642094864227731*^-13
 
GetMainIncrement[200, 0.9546874999999999, 6200., 1] = 0.0007750705658987439
 
GetMainIncrement[200, 0.9546874999999999, 6500., 1] = 0.00026875682277584055
 
GetMainIncrement[200, 0.9546874999999999, 6500.000060645797, 1] = 
    0.00026875672595560226
 
GetMainIncrement[200, 0.9546874999999999, 6659.243251694988, 1] = 
    0.000020847484781806765
 
GetMainIncrement[200, 0.9546874999999999, 6659.243269495647, 1] = 
    0.000020847457322193243
 
GetMainIncrement[200, 0.9546874999999999, 6672.634523250869, 1] = 
    6.170854685129884*^-7
 
GetMainIncrement[200, 0.9546874999999999, 6672.634526362891, 1] = 
    6.170796048954135*^-7
 
GetMainIncrement[200, 0.9546874999999999, 6673.042995617335, 1] = 
    1.4683885677339989*^-9
 
GetMainIncrement[200, 0.9546874999999999, 6673.042995769327, 1] = 
    1.4675774137200325*^-9
 
GetMainIncrement[200, 0.9546874999999999, 6673.043969918037, 1] = 
    -3.1927397195225665*^-13
 
GetMainIncrement[200, 0.9546874999999999, 6673.043969915796, 1] = 
    8.719811168695496*^-13
 
GetMainIncrement[200, 0.9546874999999999, 6673.043969706239, 1] = 
    -5.4683633923108266*^-15
 
GetMainIncrement[200, 0.9575845343222655, 6200., 1] = 0.0007243204858048259
 
GetMainIncrement[200, 0.9575845343222655, 6500., 1] = 0.00022363526296393716
 
GetMainIncrement[200, 0.9575845343222655, 6500.000055631218, 1] = 
    0.00022363517333897
 
GetMainIncrement[200, 0.9575845343222655, 6633.997521453717, 1] = 
    0.000016582624465963434
 
GetMainIncrement[200, 0.9575845343222655, 6633.99753735877, 1] = 
    0.00001658260106885846
 
GetMainIncrement[200, 0.9575845343222655, 6644.729239695785, 1] = 
    4.1622480609102377*^-7
 
GetMainIncrement[200, 0.9575845343222655, 6644.729242249917, 1] = 
    4.162215450896102*^-7
 
GetMainIncrement[200, 0.9575845343222655, 6645.00554162066, 1] = 
    7.999045093561984*^-10
 
GetMainIncrement[200, 0.9575845343222655, 6645.0055417327385, 1] = 
    7.973199740279316*^-10
 
GetMainIncrement[200, 0.9575845343222655, 6645.006073642584, 1] = 
    -1.2362734534004938*^-12
 
GetMainIncrement[200, 0.9575845343222655, 6645.006073638181, 1] = 
    -1.8359174586406873*^-12
 
GetMainIncrement[200, 0.9575845343222655, 6645.0060728215985, 1] = 
    -1.1606465571620261*^-14
 
GetMainIncrement[200, 0.977863774578125, 6200., 1] = 0.0004493109252715447
 
GetMainIncrement[200, 0.977863774578125, 6500., 1] = -0.000010639016143442598
 
GetMainIncrement[200, 0.977863774578125, 6493.06075606138, 1] = 
    -5.776164318059004*^-7
 
GetMainIncrement[200, 0.977863774578125, 6492.662891426016, 1] = 
    5.452734078603867*^-11
 
GetMainIncrement[200, 0.977863774578125, 6492.6629289811335, 1] = 
    9.42336215569578*^-14
 
GetMainIncrement[200, 0.977863774578125, 6492.662929046148, 1] = 
    1.762296526156698*^-12
 
GetMainIncrement[200, 0.977863774578125, 6492.861842553764, 1] = 
    -2.888186724591779*^-7
 
GetMainIncrement[200, 0.977863774578125, 6492.662930259859, 1] = 
    -1.7292718906131155*^-12
 
GetMainIncrement[200, 1.0079174015612684, 6200., 1] = 0.00031103467942403273
 
GetMainIncrement[200, 1.0079174015612684, 6500., 1] = -0.00008426646981194687
 
GetMainIncrement[200, 1.0079174015612684, 6436.048906024068, 1] = 
    -4.156251344163261*^-6
 
GetMainIncrement[200, 1.0079174015612684, 6432.774768127109, 1] = 
    3.766181323701162*^-9
 
GetMainIncrement[200, 1.0079174015612684, 6432.777732296593, 1] = 
    -7.464048639143489*^-13
 
GetMainIncrement[200, 1.0079174015612684, 6432.777731709252, 1] = 
    -1.7572820097937897*^-12
 
GetMainIncrement[200, 1.0079174015612684, 6432.776249918181, 1] = 
    1.883366050950668*^-9
 
GetMainIncrement[200, 1.0079174015612684, 6432.77773032795, 1] = 
    5.76744381419747*^-13
 
GetMainIncrement[200, 1.0019757362549693, 6200., 1] = 0.0003120216947570325
 
GetMainIncrement[200, 1.0019757362549693, 6500., 1] = -0.00009646460375497112
 
GetMainIncrement[200, 1.0019757362549693, 6429.154585522429, 1] = 
    -4.511141102695688*^-6
 
GetMainIncrement[200, 1.0019757362549693, 6425.728516629145, 1] = 
    4.126485955087173*^-9
 
GetMainIncrement[200, 1.0019757362549693, 6425.731647700536, 1] = 
    -1.1200307174774604*^-12
 
GetMainIncrement[200, 1.0019757362549693, 6425.731646850916, 1] = 
    -6.363649705928495*^-13
 
GetMainIncrement[200, 1.0019757362549693, 6425.731645733234, 1] = 
    -3.521276559182926*^-13
 
GetMainIncrement[200, 1.0019757362549693, 6425.730081181189, 1] = 
    2.064000001036144*^-9
 
GetMainIncrement[200, 1.0019757362549693, 6425.73164546636, 1] = 
    -1.1847602299176405*^-12
 
GetMainIncrement[200, 1.0019757362549693, 6425.730863323774, 1] = 
    1.0337404907773129*^-9
 
GetMainIncrement[200, 1.0019757362549693, 6425.731644570979, 1] = 
    2.3916060782171525*^-12
 
GetMainIncrement[200, 0.9927657864298498, 6200., 1] = 0.00033948884986397237
 
GetMainIncrement[200, 0.9927657864298498, 6500., 1] = -0.00008904223168895271
 
GetMainIncrement[200, 0.9927657864298498, 6437.664569370596, 1] = 
    -4.162373281021021*^-6
 
GetMainIncrement[200, 0.9927657864298498, 6434.644763927266, 1] = 
    3.182511040236615*^-9
 
GetMainIncrement[200, 0.9927657864298498, 6434.647071077774, 1] = 
    1.0428318094040517*^-12
 
GetMainIncrement[200, 0.9927657864298498, 6434.647071834019, 1] = 
    -1.1853918589982762*^-12
 
GetMainIncrement[200, 0.9984578484564549, 6200., 1] = 0.00031881571183419474
 
GetMainIncrement[200, 0.9984578484564549, 6500., 1] = -0.00009738344856233391
 
GetMainIncrement[200, 0.9984578484564549, 6429.805157365368, 1] = 
    -4.5033152940956626*^-6
 
GetMainIncrement[200, 0.9984578484564549, 6426.449147859683, 1] = 
    3.9540860848286336*^-9
 
GetMainIncrement[200, 0.9984578484564549, 6426.452091981582, 1] = 
    -2.3792895550902443*^-12
 
GetMainIncrement[200, 0.9984578484564549, 6426.4520902110835, 1] = 
    2.3124678848228733*^-12
 
GetMainIncrement[200, 1.0009804609702981, 6200., 1] = 0.000313477574622988
 
GetMainIncrement[200, 1.0009804609702981, 6500., 1] = -0.00009719790631224252
 
GetMainIncrement[200, 1.0009804609702981, 6428.996559942492, 1] = 
    -4.524296544709483*^-6
 
GetMainIncrement[200, 1.0009804609702981, 6425.579511181242, 1] = 
    4.101828494863704*^-9
 
GetMainIncrement[200, 1.0009804609702981, 6425.582606347971, 1] = 
    -1.1198866541137914*^-13
 
GetMainIncrement[200, 1.0009804609702981, 6425.582606263469, 1] = 
    -5.747756193523121*^-13
 
GetMainIncrement[200, 1.0009804609702981, 6425.581058722355, 1] = 
    2.050895313033532*^-9
 
GetMainIncrement[200, 1.0009804609702981, 6425.582605829883, 1] = 
    1.135739302626261*^-12
 
GetMainIncrement[200, 1.0009453640313595, 6200., 1] = 0.00031353564119678044
 
GetMainIncrement[200, 1.0009453640313595, 6500., 1] = -0.0000972169356459861
 
GetMainIncrement[200, 1.0009453640313595, 6428.995988490268, 1] = 
    -4.524537791333668*^-6
 
GetMainIncrement[200, 1.0009453640313595, 6425.579416263978, 1] = 
    4.103332808505131*^-9
 
GetMainIncrement[200, 1.0009453640313595, 6425.58251196808, 1] = 
    -1.3070960871823523*^-12
 
GetMainIncrement[200, 1.0009453640313595, 6425.582510982274, 1] = 
    -1.1751574919335178*^-12
 
GetMainIncrement[200, 1.0009453640313595, 6425.582502204353, 1] = 
    1.0461079783452218*^-11
 
GetMainIncrement[200, 1.00095340009225, 6200., 1] = 0.000313522307165777
 
GetMainIncrement[200, 1.00095340009225, 6500., 1] = -0.00009721261745164098
 
GetMainIncrement[200, 1.00095340009225, 6428.996090939535, 1] = 
    -4.5244831809712664*^-6
 
GetMainIncrement[200, 1.00095340009225, 6425.5794092030865, 1] = 
    4.10232882882308*^-9
 
GetMainIncrement[200, 1.00095340009225, 6425.582504286961, 1] = 
    -2.504266040956153*^-12
 
GetMainIncrement[200, 1.00095340009225, 6425.58250239872, 1] = 
    -1.1560453793248507*^-12
 
GetMainIncrement[200, 1.00095340009225, 6425.582500780085, 1] = 
    9.127528512739916*^-13
 
GetMainIncrement[200, 1.000953693323204, 6200., 1] = 0.0003135218203434397
 
GetMainIncrement[200, 1.000953693323204, 6500., 1] = -0.00009721246197350169
 
GetMainIncrement[200, 1.000953693323204, 6428.996093465735, 1] = 
    -4.524481387094235*^-6
 
GetMainIncrement[200, 1.000953693323204, 6425.579407596565, 1] = 
    4.101679911217232*^-9
 
GetMainIncrement[200, 1.000953693323204, 6425.582502196264, 1] = 
    -3.6312189691765917*^-12
 
GetMainIncrement[200, 1.000953693323204, 6425.582499459037, 1] = 
    2.8958264822534496*^-12
 
GetMainIncrement[200, 1, 1, 1] = 9.313555492446635
 
GetMainIncrement[150, 0.9, 7101.3908034882725, 1] = 0.001187252309591457
 
GetMainIncrement[150, 1.01, 7185.577440454599, 1] = 0.000010048361457817192
 
GetMainIncrement[150, 1.01, 7389.094378983822, 1] = -0.00015443653364083046
 
GetMainIncrement[150, 1.01, 7835., 1] = -0.00046441814973997473
 
GetMainIncrement[150, 1.01, 5770., 1] = 0.001686313830331326
 
GetMainIncrement[150, 0.9844834062143921, 7053.378060503198, 1] = 
    3.2580465018569593*^-14
 
GetMainIncrement[150, 0.9, 5000., 1] = 0.005838456951068569
 
GetMainIncrement[150, 0.9, 7000., 1] = 0.0013475456588822213
 
GetMainIncrement[150, 0.9, 7000.0001221742405, 1] = 0.0013475454628138245
 
GetMainIncrement[150, 0.9, 7600.121254332853, 1] = 0.0004647067566803994
 
GetMainIncrement[150, 0.9, 7600.12134669355, 1] = 0.00046470663189209226
 
GetMainIncrement[150, 0.9, 7916.011731089664, 1] = 0.00005788397070280976
 
GetMainIncrement[150, 0.9, 7916.0117666450615, 1] = 0.000057883926402155374
 
GetMainIncrement[150, 0.9, 7960.957579090654, 1] = 2.8947902969673296*^-6
 
GetMainIncrement[150, 0.9, 7960.957587271623, 1] = 2.894781253691517*^-6
 
GetMainIncrement[150, 0.9, 7963.323659176263, 1] = 1.9167113141237862*^-8
 
GetMainIncrement[150, 0.9, 7963.323659844272, 1] = 1.91660139792438*^-8
 
GetMainIncrement[150, 0.9, 7963.339429992467, 1] = 7.499682515635375*^-12
 
GetMainIncrement[150, 0.9, 7963.3394300056825, 1] = 6.585003552096909*^-12
 
GetMainIncrement[150, 0.9, 7963.3394361656665, 1] = -8.866046731417082*^-13
 
GetMainIncrement[150, 0.90625, 5000., 1] = 0.005590582360059557
 
GetMainIncrement[150, 0.90625, 7000., 1] = 0.001171526208188662
 
GetMainIncrement[150, 0.90625, 7000.0001148382025, 1] = 0.001171526027956409
 
GetMainIncrement[150, 0.90625, 7530.215579040639, 1] = 0.00040094616531262937
 
GetMainIncrement[150, 0.90625, 7530.215664956439, 1] = 0.0004009460501608532
 
GetMainIncrement[150, 0.90625, 7806.095943670793, 1] = 0.00004513279583507075
 
GetMainIncrement[150, 0.90625, 7806.0959748252535, 1] = 
    0.000045132757582768275
 
GetMainIncrement[150, 0.90625, 7841.089716361346, 1] = 1.9960281053060184*^-6
 
GetMainIncrement[150, 0.90625, 7841.089723077968, 1] = 1.9960201686249887*^-6
 
GetMainIncrement[150, 0.90625, 7842.708951122713, 1] = 1.0489244657707207*^-8
 
GetMainIncrement[150, 0.90625, 7842.708951610948, 1] = 1.0489257732318046*^-8
 
GetMainIncrement[150, 0.90625, 7842.717505248702, 1] = 3.010594106910708*^-12
 
GetMainIncrement[150, 0.90625, 7842.717505256975, 1] = 2.431436277902481*^-12
 
GetMainIncrement[150, 0.90625, 7842.717507704589, 1] = 6.097870282719201*^-13
 
GetMainIncrement[150, 0.9101127124296875, 5000., 1] = 0.005442532827916179
 
GetMainIncrement[150, 0.9101127124296875, 7000., 1] = 0.0010687340166761206
 
GetMainIncrement[150, 0.9101127124296875, 7000.000110250497, 1] = 
    0.0010687338456403836
 
GetMainIncrement[150, 0.9101127124296875, 7488.698297658147, 1] = 
    0.00036418159406025177
 
GetMainIncrement[150, 0.9101127124296875, 7488.698379643263, 1] = 
    0.00036418148477977436
 
GetMainIncrement[150, 0.9101127124296875, 7741.3053703794185, 1] = 
    0.00003832468441300051
 
GetMainIncrement[150, 0.9101127124296875, 7741.305398966106, 1] = 
    0.00003832464953319774
 
GetMainIncrement[150, 0.9101127124296875, 7771.014994622203, 1] = 
    1.5641082926852717*^-6
 
GetMainIncrement[150, 0.9101127124296875, 7771.015000530166, 1] = 
    1.5641010215886102*^-6
 
GetMainIncrement[150, 0.9101127124296875, 7772.279095312535, 1] = 
    7.0629797616799436*^-9
 
GetMainIncrement[150, 0.9101127124296875, 7772.2790957104735, 1] = 
    7.062485026892952*^-9
 
GetMainIncrement[150, 0.9101127124296875, 7772.28482945368, 1] = 
    7.967571643684862*^-13
 
GetMainIncrement[150, 0.9101127124296875, 7772.284829457906, 1] = 
    1.4037350654690778*^-12
 
GetMainIncrement[150, 0.9101127124296875, 7772.284830100607, 1] = 
    1.2231887594818525*^-14
 
GetMainIncrement[150, 0.9371516994375, 5000., 1] = 0.0045213806847296655
 
GetMainIncrement[150, 0.9371516994375, 7000., 1] = 0.00048228947718294106
 
GetMainIncrement[150, 0.9371516994375, 7000.000077070327, 1] = 
    0.00048228936873271044
 
GetMainIncrement[150, 0.9371516994375, 7238.8108871034265, 1] = 
    0.00016119580776658132
 
GetMainIncrement[500, 1.0177542588848432, 5867.211121425011, 1] = 
    -4.076437351194749*^-11
 
GetMainIncrement[500, 1.0177542588848432, 5867.21148694732, 1] = 
    -5.929332763166852*^-10
 
GetMainIncrement[500, 1.0177542588848432, 5867.331436541151, 1] = 
    -1.951654618127292*^-7
 
GetMainIncrement[500, 1.0177542588848432, 5900., 1] = -0.00005278591449647109
 
GetMainIncrement[500, 1.0177542588848432, 5850., 1] = 0.000028004161508802695
 
GetMainIncrement[500, 1.0186669584328298, 5867.357133421875, 1] = 
    -3.8498068787224705*^-11
 
GetMainIncrement[500, 1.0186669584328298, 5867.357132139593, 1] = 
    2.056852314879544*^-12
 
GetMainIncrement[500, 1.0186669584328298, 5867.357111256076, 1] = 
    3.545492732411927*^-11
 
GetMainIncrement[500, 1.0186669584328298, 5867.357535726401, 1] = 
    -6.85188280096752*^-10
 
GetMainIncrement[500, 1.0186669584328298, 5867.478356597719, 1] = 
    -1.9571184324581443*^-7
 
GetMainIncrement[500, 1.0186669584328298, 5900., 1] = -0.00005231606846532314
 
GetMainIncrement[500, 1.0186669584328298, 5850., 1] = 0.000028116626491373888
 
GetMainIncrement[500, 1.009287924859375, 5874.6879564021965, 1] = 
    -1.1315451313030807*^-10
 
GetMainIncrement[500, 1.009287924859375, 5874.687936499718, 1] = 
    3.4575978134754846*^-11
 
GetMainIncrement[500, 1.009287924859375, 5874.6885617800845, 1] = 
    -1.0517047792813362*^-9
 
GetMainIncrement[500, 1.009287924859375, 5874.817244220543, 1] = 
    -2.174866575868975*^-7
 
GetMainIncrement[500, 1.009287924859375, 5900., 1] = -0.000042340776706518076
 
GetMainIncrement[500, 1.009287924859375, 5850., 1] = 0.00004172622747151218
 
GetMainIncrement[500, 1.0025281781074218, 5891.260028171352, 1] = 
    -6.028497471187444*^-14
 
GetMainIncrement[500, 1.0025281781074218, 5891.260027953382, 1] = 
    3.715707212401109*^-13
 
GetMainIncrement[500, 1.0025281781074218, 5891.260006156182, 1] = 
    3.752872729104791*^-11
 
GetMainIncrement[500, 1.0025281781074218, 5891.332840226015, 1] = 
    -1.2536251881482905*^-7
 
GetMainIncrement[500, 1.0025281781074218, 5900., 1] = -0.00001501727148792121
 
GetMainIncrement[500, 1.0025281781074218, 5850., 1] = 0.00007161590408244899
 
GetMainIncrement[500, 1.0015625, 5894.344204147661, 1] = 
    -3.779111290395931*^-11
 
GetMainIncrement[500, 1.0015625, 5894.344164711841, 1] = 
    6.813127279958319*^-11
 
GetMainIncrement[500, 1.0015625, 5894.394714091994, 1] = 
    -8.726347658333895*^-8
 
GetMainIncrement[500, 1.0015625, 5900., 1] = -9.752758269413606*^-6
 
GetMainIncrement[500, 1.0015625, 5850., 1] = 0.0000772433239061961
 
GetMainIncrement[500, 1., 5899.700830206934, 1] = 7.832355566254976*^-11
 
GetMainIncrement[500, 1., 5899.700883485788, 1] = -9.07743423749505*^-11
 
GetMainIncrement[500, 1., 5899.703848708372, 1] = -5.1427916978290114*^-9
 
GetMainIncrement[500, 1., 5900., 1] = -5.187482294392062*^-7
 
GetMainIncrement[500, 1., 5850., 1] = 0.00008706287712615318
 
GetMainIncrement[500, 1.0175081373033585, 5850., 1] = 0.000028027151903411204
 
GetMainIncrement[500, 1.0175081373033585, 5900., 1] = -0.00005285900079140323
 
GetMainIncrement[500, 1.0175081373033585, 5867.3250618119755, 1] = 
    -1.950784149253173*^-7
 
GetMainIncrement[500, 1.0175081373033585, 5867.20530708109, 1] = 
    -7.411237631081181*^-10
 
GetMainIncrement[500, 1.0175081373033585, 5867.204850397097, 1] = 
    3.6159530800378495*^-11
 
GetMainIncrement[500, 1.0175081373033585, 5867.20487164222, 1] = 
    -3.6521693777395205*^-11
 
GetMainIncrement[500, 1.0175168950220181, 5850., 1] = 0.0000280259840571673
 
GetMainIncrement[500, 1.0175168950220181, 5900., 1] = -0.000052856890149518206
 
GetMainIncrement[500, 1.0175168950220181, 5867.325042125451, 1] = 
    -1.951758294550072*^-7
 
GetMainIncrement[500, 1.0175168950220181, 5867.2052231853095, 1] = 
    -5.531724277046349*^-10
 
GetMainIncrement[500, 1.0175168950220181, 5867.204882632844, 1] = 
    -1.5371423544555032*^-10
 
GetMainIncrement[500, 1.0175168950220181, 5867.204751586657, 1] = 
    5.85030867879862*^-11
 
GetMainIncrement[500, 1.0175168950220181, 5867.204787712862, 1] = 
    1.5116270495258485*^-10
 
GetMainIncrement[500, 1.0175168950220181, 5867.204835172853, 1] = 
    -1.5351548157682693*^-12
 
GetMainIncrement[500, 1.0175225953824443, 5850., 1] = 0.00002802536541846402
 
GetMainIncrement[500, 1.0175225953824443, 5900., 1] = -0.000052855353150665525
 
GetMainIncrement[500, 1.0175225953824443, 5867.325121434542, 1] = 
    -1.9522377006499865*^-7
 
GetMainIncrement[500, 1.0175225953824443, 5867.205270091231, 1] = 
    -8.191721998131044*^-10
 
GetMainIncrement[500, 1.0175225953824443, 5867.204765082502, 1] = 
    1.4954964760863828*^-10
 
GetMainIncrement[500, 1.0175225953824443, 5867.204843044899, 1] = 
    -1.473255125208385*^-11
 
GetMainIncrement[500, 1.0175225953824443, 5867.204836053362, 1] = 
    -3.3060730260207893*^-12
 
GetMainIncrement[500, 1.0175225953824443, 5867.204834074222, 1] = 
    -3.7739195164645904*^-11
 
GetMainIncrement[500, 1.0175225953824443, 5867.204799578361, 1] = 
    -1.9948717211535488*^-11
 
GetMainIncrement[500, 1.0177542588848432, 5867.211094440034, 1] = 
    7.861131328681069*^-11
 
GetMainIncrement[500, 1.0145204070472242, 5850., 1] = 0.00003010792337138539
 
GetMainIncrement[500, 1.0145204070472242, 5900., 1] = -0.00005194195075662181
 
GetMainIncrement[500, 1.0145204070472242, 5868.3473306274755, 1] = 
    -2.010420985489378*^-7
 
GetMainIncrement[500, 1.0145204070472242, 5868.225631130481, 1] = 
    -7.277260665817034*^-10
 
GetMainIncrement[500, 1.0145204070472242, 5868.225189016644, 1] = 
    3.5213414378409275*^-11
 
GetMainIncrement[500, 1.0145204070472242, 5868.225209422375, 1] = 
    4.0163223888702894*^-11
 
GetMainIncrement[500, 1.0145204070472242, 5868.225420276428, 1] = 
    -3.43534325891238*^-10
 
GetMainIncrement[500, 1.0145204070472242, 5868.2252314933485, 1] = 
    -7.205960711486638*^-11
 
GetMainIncrement[500, 1.016519037397454, 5850., 1] = 0.00002834794458505376
 
GetMainIncrement[500, 1.016519037397454, 5900., 1] = -0.000052924680886507885
 
GetMainIncrement[500, 1.016519037397454, 5867.440032495919, 1] = 
    -1.9607144160771201*^-7
 
GetMainIncrement[500, 1.016519037397454, 5867.320235326874, 1] = 
    -7.468818841795425*^-10
 
GetMainIncrement[500, 1.016519037397454, 5867.319777258631, 1] = 
    -2.4972586661325263*^-12
 
GetMainIncrement[500, 1.016519037397454, 5867.319775721906, 1] = 
    -3.752520157400321*^-11
 
GetMainIncrement[500, 1.016519037397454, 5858.659887860953, 1] = 
    0.000014147905701847964
 
GetMainIncrement[500, 1.016519037397454, 5867.319752752911, 1] = 
    3.732160092854552*^-11
 
GetMainIncrement[500, 1.0175261378179619, 5850., 1] = 0.000028024927558272392
 
GetMainIncrement[500, 1.0175261378179619, 5900., 1] = -0.00005285444090536263
 
GetMainIncrement[500, 1.0175261378179619, 5867.32513995264, 1] = 
    -1.9524771210429487*^-7
 
GetMainIncrement[500, 1.0175261378179619, 5867.205272024633, 1] = 
    -6.678679089801298*^-10
 
GetMainIncrement[500, 1.0175261378179619, 5867.204860604658, 1] = 
    -2.704789300519983*^-12
 
GetMainIncrement[500, 1.0175261378179619, 5867.204858931679, 1] = 
    -7.566080128683286*^-11
 
GetMainIncrement[500, 1.0175261378179619, 5858.60242946584, 1] = 
    0.000013986811948005329
 
GetMainIncrement[500, 1.0175261378179619, 5867.2048123976165, 1] = 
    1.1337320975958205*^-10
 
GetMainIncrement[500, 1.0175204060368916, 5850., 1] = 0.000028025545466434855
 
GetMainIncrement[500, 1.0175204060368916, 5900., 1] = -0.00005285599173632183
 
GetMainIncrement[500, 1.0175204060368916, 5867.325057383726, 1] = 
    -1.951231243419062*^-7
 
GetMainIncrement[500, 1.0175204060368916, 5867.205268608515, 1] = 
    -7.805944204821585*^-10
 
GetMainIncrement[500, 1.0175204060368916, 5867.204787479422, 1] = 
    -3.9760365599982375*^-11
 
GetMainIncrement[500, 1.0175204060368916, 5867.204761657391, 1] = 
    7.75787188395799*^-11
 
GetMainIncrement[500, 1.0175210098543284, 5850., 1] = 0.000028025601552758293
 
GetMainIncrement[500, 1.0175210098543284, 5900., 1] = -0.0000528556995291423
 
GetMainIncrement[500, 1.0175210098543284, 5867.325142633636, 1] = 
    -1.9527490628574475*^-7
 
GetMainIncrement[500, 1.0175210098543284, 5867.2052609705315, 1] = 
    -6.683478614158888*^-10
 
GetMainIncrement[500, 1.0175210098543284, 5867.204849264251, 1] = 
    7.324363201176558*^-11
 
GetMainIncrement[500, 1.0175210098543284, 5867.204889926615, 1] = 
    -3.05762545003193*^-11
 
GetMainIncrement[500, 1.0174260110440032, 5850., 1] = 0.000028039800883353797
 
GetMainIncrement[500, 1.0174260110440032, 5900., 1] = -0.00005287858724174811
 
GetMainIncrement[500, 1.0174260110440032, 5867.325975920333, 1] = 
    -1.9511101504007724*^-7
 
GetMainIncrement[500, 1.0174260110440032, 5867.206248656422, 1] = 
    -7.794014107340933*^-10
 
GetMainIncrement[500, 1.0174260110440032, 5867.205768482338, 1] = 
    1.1148564039444812*^-10
 
GetMainIncrement[500, 1.0174260110440032, 5867.205828571341, 1] = 
    -2.3682521262525895*^-11
 
GetMainIncrement[500, 1.0175226382584184, 5850., 1] = 0.00002802531749392887
 
GetMainIncrement[500, 1.0175226382584184, 5900., 1] = -0.00005285542081263545
 
GetMainIncrement[500, 1.0175226382584184, 5867.325087580002, 1] = 
    -1.9517291741402395*^-7
 
GetMainIncrement[500, 1.0175226382584184, 5867.205267270781, 1] = 
    -6.291089108396942*^-10
 
GetMainIncrement[500, 1.0175226382584184, 5867.204879808786, 1] = 
    -1.532807615236458*^-10
 
GetMainIncrement[500, 1.0175226382584184, 5867.204754994519, 1] = 
    1.6229496536284728*^-10
 
GetMainIncrement[500, 1.0175226382584184, 5867.20481918427, 1] = 
    1.337452977821828*^-10
 
GetMainIncrement[500, 1.017484350357976, 5850., 1] = 0.000028030547080232164
 
GetMainIncrement[500, 1.017484350357976, 5900., 1] = -0.000052864921698003945
 
GetMainIncrement[500, 1.017484350357976, 5867.325165119615, 1] = 
    -1.9508443869756438*^-7
 
GetMainIncrement[500, 1.017484350357976, 5867.205420407777, 1] = 
    -8.168818750229311*^-10
 
GetMainIncrement[500, 1.017484350357976, 5867.204916904074, 1] = 
    7.358885819230745*^-11
 
GetMainIncrement[500, 1.017484350357976, 5867.204958513821, 1] = 
    -6.979416260969977*^-11
 
GetMainIncrement[500, 1.0175070132517128, 5850., 1] = 0.000028027519756364448
 
GetMainIncrement[500, 1.0175070132517128, 5900., 1] = -0.00005285926257239418
 
GetMainIncrement[500, 1.0175070132517128, 5867.325154338844, 1] = 
    -1.9524094636700533*^-7
 
GetMainIncrement[500, 1.0175070132517128, 5867.205301445476, 1] = 
    -6.67464554967071*^-10
 
GetMainIncrement[500, 1.0175070132517128, 5867.204890312097, 1] = 
    -4.0331862998540906*^-11
 
GetMainIncrement[500, 1.0175070132517128, 5867.2048638715205, 1] = 
    4.0408598613473484*^-11
 
GetMainIncrement[400, 1, 5949.271000586107, 1] = 1.929939553709046*^-11
 
GetMainIncrement[400, 1., 5850., 1] = 0.00017133075122958063
 
GetMainIncrement[400, 1., 5950., 1] = -1.2330492860477567*^-6
 
GetMainIncrement[400, 1., 5949.285453100613, 1] = -2.447691997196455*^-8
 
GetMainIncrement[400, 1., 5949.270983624519, 1] = 2.8478599307327906*^-11
 
GetMainIncrement[400, 1., 5949.271000440014, 1] = -1.870835233150174*^-11
 
GetMainIncrement[400, 1.003125, 5850., 1] = 0.00015322474972339863
 
GetMainIncrement[400, 1.003125, 5950., 1] = -0.000016992096379380147
 
GetMainIncrement[400, 1.003125, 5940.017382668975, 1] = 
    -3.0920296878754255*^-7
 
GetMainIncrement[400, 1.003125, 5939.832736120805, 1] = 
    -1.1753278241605734*^-11
 
GetMainIncrement[400, 1.003125, 5939.832729102099, 1] = 3.796112289257674*^-11
 
GetMainIncrement[400, 1.0050563562148438, 5850., 1] = 0.0001438071913913693
 
GetMainIncrement[400, 1.0050563562148438, 5950., 1] = -0.0000249496851567062
 
GetMainIncrement[400, 1.0050563562148438, 5935.215603851498, 1] = 
    -4.3284403935779994*^-7
 
GetMainIncrement[400, 1.0050563562148438, 5934.955369092615, 1] = 
    4.037723778103127*^-11
 
GetMainIncrement[400, 1.0050563562148438, 5934.955393365978, 1] = 
    -1.9963432220260896*^-13
 
GetMainIncrement[400, 1.0169913515084577, 5850., 1] = 0.0001159983776874256
 
GetMainIncrement[400, 1.0169913515084577, 5950., 1] = -0.00004357550116563719
 
GetMainIncrement[400, 1.0169913515084577, 5922.692585103003, 1] = 
    -6.730332469603319*^-7
 
GetMainIncrement[400, 1.0169913515084577, 5922.266670728729, 1] = 
    2.7008256823493268*^-11
 
GetMainIncrement[400, 1.0169913515084577, 5922.266687819628, 1] = 
    5.635432830835337*^-11
 
GetMainIncrement[400, 1.0169913515084577, 5922.479636461316, 1] = 
    -3.365036610956907*^-7
 
GetMainIncrement[400, 1.0169913515084577, 5922.266723476204, 1] = 
    -3.7473992658965116*^-11
 
GetMainIncrement[400, 1.0160648915986563, 5850., 1] = 0.00011626809658953543
 
GetMainIncrement[400, 1.0160648915986563, 5950., 1] = -0.00004402849996805096
 
GetMainIncrement[400, 1.0160648915986563, 5922.533103688053, 1] = 
    -6.7634199115472*^-7
 
GetMainIncrement[400, 1.0160648915986563, 5922.107067776205, 1] = 
    3.204837647162711*^-11
 
GetMainIncrement[400, 1.0160648915986563, 5922.107087962905, 1] = 
    7.579214680994081*^-11
 
GetMainIncrement[400, 1.0160648915986563, 5922.320095825479, 1] = 
    -3.381388133365129*^-7
 
GetMainIncrement[400, 1.0160648915986563, 5922.107135696867, 1] = 
    -5.6607949298665035*^-11
 
GetMainIncrement[400, 1.011860005248396, 5850., 1] = 0.00012150631847622269
 
GetMainIncrement[400, 1.011860005248396, 5950., 1] = -0.00004204964779861582
 
GetMainIncrement[400, 1.011860005248396, 5924.2903614240795, 1] = 
    -6.516494915052737*^-7
 
GetMainIncrement[400, 1.011860005248396, 5923.88782261983, 1] = 
    6.712582891605073*^-11
 
GetMainIncrement[400, 1.011860005248396, 5923.887864080721, 1] = 
    1.7091936318960194*^-13
 
GetMainIncrement[400, 1.011860005248396, 5923.88786418656, 1] = 
    1.709840358491907*^-13
 
GetMainIncrement[400, 1.011860005248396, 5924.08911280532, 1] = 
    -3.2587627117798166*^-7
 
GetMainIncrement[400, 1.011860005248396, 5923.887864292154, 1] = 
    -2.283963762474833*^-13
 
GetMainIncrement[400, 1.0144587679316874, 5850., 1] = 0.00011749357202192136
 
GetMainIncrement[400, 1.0144587679316874, 5950., 1] = -0.000044051978841738664
 
GetMainIncrement[400, 1.0144587679316874, 5922.730924122498, 1] = 
    -6.746726935287023*^-7
 
GetMainIncrement[400, 1.0144587679316874, 5922.309213734991, 1] = 
    1.1795334948030457*^-10
 
GetMainIncrement[400, 1.0144587679316874, 5922.3092874499325, 1] = 
    1.9220100784902473*^-11
 
GetMainIncrement[400, 1.0144587679316874, 5922.309301799387, 1] = 
    -2.259574523474049*^-11
 
GetMainIncrement[400, 1.0158113233350259, 5850., 1] = 0.00011639767832013826
 
GetMainIncrement[400, 1.0158113233350259, 5950., 1] = -0.00004409640346207784
 
GetMainIncrement[400, 1.0158113233350259, 5922.524592201527, 1] = 
    -6.766659629979147*^-7
 
GetMainIncrement[400, 1.0158113233350259, 5922.098882184818, 1] = 
    9.129492367437268*^-11
 
GetMainIncrement[400, 1.0158113233350259, 5922.098939613332, 1] = 
    -3.755894968410396*^-11
 
GetMainIncrement[400, 1.0157999201508716, 5850., 1] = 0.00011640404843577993
 
GetMainIncrement[400, 1.0157999201508716, 5950., 1] = -0.00004409898615993909
 
GetMainIncrement[400, 1.0157999201508716, 5922.524515644818, 1] = 
    -6.766552271151238*^-7
 
GetMainIncrement[400, 1.0157999201508716, 5922.098836448062, 1] = 
    5.312046267268167*^-11
 
GetMainIncrement[400, 1.0157999201508716, 5922.09886986316, 1] = 
    3.82432712884781*^-11
 
GetMainIncrement[400, 1.0157999201508716, 5922.098955755074, 1] = 
    -1.3581003945680077*^-10
 
GetMainIncrement[400, 1.0157999201508716, 5922.098888735469, 1] = 
    4.599277290398204*^-11
 
GetMainIncrement[400, 1.0157999201508716, 5922.098922245272, 1] = 
    -6.404179999351146*^-11
 
GetMainIncrement[400, 1.0157844053759066, 5850., 1] = 0.00011641283318329349
 
GetMainIncrement[400, 1.0157844053759066, 5950., 1] = -0.00004410224760043224
 
GetMainIncrement[400, 1.0157844053759066, 5922.524545740437, 1] = 
    -6.76652635249979*^-7
 
GetMainIncrement[400, 1.0157844053759066, 5922.098900440926, 1] = 
    -3.1994174833332306*^-12
 
GetMainIncrement[400, 1.0157844053759066, 5922.098898428517, 1] = 
    3.759624186137119*^-11
 
GetMainIncrement[400, 1.0158095250940142, 5850., 1] = 0.00011639864825873015
 
GetMainIncrement[400, 1.0158095250940142, 5950., 1] = -0.000044096854927793536
 
GetMainIncrement[400, 1.0158095250940142, 5922.524554238416, 1] = 
    -6.76692376087092*^-7
 
GetMainIncrement[400, 1.0158095250940142, 5922.098831259352, 1] = 
    7.251623349653798*^-11
 
GetMainIncrement[400, 1.0158095250940142, 5922.09887687612, 1] = 
    5.693555884731232*^-11
 
GetMainIncrement[400, 1.0158095250940142, 5922.099043556815, 1] = 
    -2.2612068948768115*^-10
 
GetMainIncrement[400, 1.0158095250940142, 5922.0989104032315, 1] = 
    -5.2836887439616266*^-11
 
GetMainIncrement[300, 1, 6061.273715966917, 1] = 5.0359708129955535*^-12
 
GetMainIncrement[300, 0.95, 6419.661375584189, 1] = 2.0780548547795485*^-6
 
GetMainIncrement[300, 0.95, 6420.865912210106, 1] = 7.891645823678169*^-9
 
GetMainIncrement[300, 0.95, 6420.865912533775, 1] = 7.891189120453669*^-9
 
GetMainIncrement[300, 0.95, 6420.870504000049, 1] = 7.844893164981118*^-12
 
GetMainIncrement[300, 0.95, 6420.870504010259, 1] = 1.264573600728066*^-11
 
GetMainIncrement[300, 0.95, 6420.870508569177, 1] = 4.906224339014213*^-12
 
GetMainIncrement[300, 0.9546874999999999, 6000., 1] = 0.0006783819922996894
 
GetMainIncrement[300, 0.9546874999999999, 6100., 1] = 0.00048614435756666414
 
GetMainIncrement[300, 0.9546874999999999, 6100.000074036186, 1] = 
    0.000486144218094555
 
GetMainIncrement[300, 0.9546874999999999, 6352.887192584225, 1] = 
    0.000029082520522405306
 
GetMainIncrement[300, 0.9546874999999999, 6352.887211642861, 1] = 
    0.000029082502103113553
 
GetMainIncrement[300, 0.9546874999999999, 6368.978225289438, 1] = 
    1.3377186561543385*^-6
 
GetMainIncrement[300, 0.9546874999999999, 6368.978229479618, 1] = 
    1.3377162350793065*^-6
 
GetMainIncrement[300, 0.9546874999999999, 6369.754056191036, 1] = 
    3.889793456695397*^-9
 
GetMainIncrement[300, 0.9546874999999999, 6369.75405641733, 1] = 
    3.879693975480415*^-9
 
GetMainIncrement[300, 0.9546874999999999, 6369.756318716649, 1] = 
    -9.991261290531739*^-13
 
GetMainIncrement[300, 0.9546874999999999, 6369.756318713023, 1] = 
    -5.901317303748377*^-12
 
GetMainIncrement[300, 0.9546874999999999, 6369.756318135649, 1] = 
    -4.897453766855055*^-12
 
GetMainIncrement[300, 0.9575845343222655, 6000., 1] = 0.0006203756623458112
 
GetMainIncrement[300, 0.9575845343222655, 6100., 1] = 0.0004300367440321397
 
GetMainIncrement[300, 0.9575845343222655, 6100.000069979301, 1] = 
    0.00043003661345188864
 
GetMainIncrement[300, 0.9575845343222655, 6325.9321151145, 1] = 
    0.00002402008247573184
 
GetMainIncrement[300, 0.9575845343222655, 6325.9321324477905, 1] = 
    0.000024020052601710236
 
GetMainIncrement[300, 0.9575845343222655, 6339.298335156219, 1] = 
    9.935238950764048*^-7
 
GetMainIncrement[300, 0.9575845343222655, 6339.298338760461, 1] = 
    9.935224296816775*^-7
 
GetMainIncrement[300, 0.9575845343222655, 6339.875045694695, 1] = 
    2.4271848416090825*^-9
 
GetMainIncrement[300, 0.9575845343222655, 6339.8750458730665, 1] = 
    2.417268900914123*^-9
 
GetMainIncrement[300, 0.9575845343222655, 6339.876458052401, 1] = 
    -9.102541501581837*^-12
 
GetMainIncrement[300, 1.0120864111838659, 6044.483427335527, 1] = 
    -9.430505706312271*^-12
 
GetMainIncrement[300, 1.0120864111838659, 6044.483426565304, 1] = 
    1.1703175863304882*^-12
 
GetMainIncrement[300, 1.0120864111838659, 6044.488265784536, 1] = 
    -7.351798767839582*^-9
 
GetMainIncrement[300, 1.0120864111838659, 6045.003376582991, 1] = 
    -7.898298505844579*^-7
 
GetMainIncrement[300, 1.0120864111838659, 6100., 1] = -0.00008336222391259091
 
GetMainIncrement[300, 1.0120864111838659, 6000., 1] = 0.00006821476160614062
 
GetMainIncrement[300, 1.0084541883156728, 6046.038531045384, 1] = 
    -4.766725940829816*^-12
 
GetMainIncrement[300, 1.0084541883156728, 6046.038527179515, 1] = 
    5.980492021203342*^-12
 
GetMainIncrement[300, 1.0084541883156728, 6046.043452197172, 1] = 
    -7.613012608693884*^-9
 
GetMainIncrement[300, 1.0084541883156728, 6046.554554066104, 1] = 
    -7.975823110107705*^-7
 
GetMainIncrement[300, 1.0084541883156728, 6100., 1] = -0.00008248680017140895
 
GetMainIncrement[300, 1.0084541883156728, 6000., 1] = 0.00007185151384216173
 
GetMainIncrement[300, 0.999999205904599, 6061.275875004119, 1] = 
    -1.2921318203774901*^-14
 
GetMainIncrement[300, 0.999999205904599, 6061.27587485384, 1] = 
    2.397641276057766*^-13
 
GetMainIncrement[300, 0.999999205904599, 6061.275809902005, 1] = 
    1.0386749376171608*^-10
 
GetMainIncrement[300, 0.999999205904599, 6061.753325317084, 1] = 
    -7.635131893265573*^-7
 
GetMainIncrement[300, 0.999999205904599, 6100., 1] = -0.00006145022266398617
 
GetMainIncrement[300, 0.999999205904599, 6000., 1] = 0.00009921792214452012
 
GetMainIncrement[300, 1.0136796548199989, 6044.817019178936, 1] = 
    -9.429588999822908*^-12
 
GetMainIncrement[300, 1.0136796548199989, 6044.817012388186, 1] = 
    1.0245961563448529*^-11
 
GetMainIncrement[300, 1.0136796548199989, 6044.82197204111, 1] = 
    -7.472935807366506*^-9
 
GetMainIncrement[300, 1.0136796548199989, 6045.340824195235, 1] = 
    -7.891655111314476*^-7
 
GetMainIncrement[300, 0.95, 6000., 1] = 0.0007780608990691409
 
GetMainIncrement[300, 0.95, 6100., 1] = 0.0005827860015866131
 
GetMainIncrement[300, 0.95, 6100.000080428869, 1] = 0.0005827858232098844
 
GetMainIncrement[300, 0.95, 6398.44389068941, 1] = 0.0000386823409955883
 
GetMainIncrement[300, 0.95, 6398.443912652737, 1] = 0.00003868231265916869
 
GetMainIncrement[300, 0.95, 6419.661370342383, 1] = 2.0780686178416768*^-6
 
GetMainIncrement[300, 1.0120418779206184, 6044.483167583709, 1] = 
    4.759649475222748*^-12
 
GetMainIncrement[300, 1.0120418779206184, 6044.4831792363775, 1] = 
    -1.7664244646533635*^-11
 
GetMainIncrement[300, 1.0120418779206184, 6044.488019503318, 1] = 
    -7.35500084747293*^-9
 
GetMainIncrement[300, 1.0120418779206184, 6045.003044487979, 1] = 
    -7.898740126523678*^-7
 
GetMainIncrement[300, 1.0120418779206184, 6100., 1] = -0.00008338143282481186
 
GetMainIncrement[300, 1.0120418779206184, 6000., 1] = 0.00006822956463592385
 
GetMainIncrement[300, 1.0120422287421824, 6044.483185926478, 1] = 
    -4.757469537677167*^-12
 
GetMainIncrement[300, 1.0120422287421824, 6044.483178847333, 1] = 
    1.0772514526464008*^-11
 
GetMainIncrement[300, 1.0120422287421824, 6044.488031733416, 1] = 
    -7.3739876104404484*^-9
 
GetMainIncrement[300, 1.0120422287421824, 6045.00306318615, 1] = 
    -7.898825968849087*^-7
 
GetMainIncrement[300, 1.0120422287421824, 6100., 1] = -0.00008338125176646093
 
GetMainIncrement[300, 1.0120422287421824, 6000., 1] = 0.00006822946802450603
 
GetMainIncrement[300, 1.0120249388366067, 6044.483220770108, 1] = 
    -4.6637425502428845*^-12
 
GetMainIncrement[300, 1.0120249388366067, 6044.483220729514, 1] = 
    6.135163991421999*^-14
 
GetMainIncrement[300, 1.0120249388366067, 6044.484429566861, 1] = 
    -1.8502930677828959*^-9
 
GetMainIncrement[300, 1.0120249388366067, 6044.483217560295, 1] = 
    4.8509280224434334*^-12
 
GetMainIncrement[300, 1.0120249388366067, 6044.485641573427, 1] = 
    -3.681816672002655*^-9
 
GetMainIncrement[300, 1.0120249388366067, 6044.4832144901675, 1] = 
    4.663195014593252*^-12
 
GetMainIncrement[300, 1.0120249388366067, 6044.483213652542, 1] = 
    1.2730996405739894*^-12
 
GetMainIncrement[300, 1.0120249388366067, 6044.488068656686, 1] = 
    -7.377807167375182*^-9
 
GetMainIncrement[300, 1.0120249388366067, 6045.003060816583, 1] = 
    -7.898904407745226*^-7
 
GetMainIncrement[300, 1.0120249388366067, 6100., 1] = -0.00008338851885261205
 
GetMainIncrement[300, 1.0120249388366067, 6000., 1] = 0.00006823540802540434
 
GetMainIncrement[300, 1.0136796548199989, 6100., 1] = -0.00008218434564875301
 
GetMainIncrement[300, 1.0136796548199989, 6000., 1] = 0.00006817347522711263
 
GetMainIncrement[300, 1.0209299105003387, 6054.76416582672, 1] = 
    4.6420569333447716*^-11
 
GetMainIncrement[300, 1.0209299105003387, 6054.764204551427, 1] = 
    -4.585546230380898*^-12
 
GetMainIncrement[300, 1.0209299105003387, 6054.764205047802, 1] = 
    -7.139457753289891*^-13
 
GetMainIncrement[300, 1.0209299105003387, 6054.76421088085, 1] = 
    -9.054524166031419*^-12
 
GetMainIncrement[300, 1.0209299105003387, 6054.764127102015, 1] = 
    1.2099366848055196*^-10
 
GetMainIncrement[300, 1.0209299105003387, 6055.303100287211, 1] = 
    -7.782658458645262*^-7
 
GetMainIncrement[300, 1.0209299105003387, 6100., 1] = -0.00006469819968914654
 
GetMainIncrement[300, 1.0209299105003387, 6000., 1] = 0.00008005054150964055
 
GetMainIncrement[300, 0.977863774578125, 6168.1246839493415, 1] = 
    -4.667533354718763*^-12
 
GetMainIncrement[300, 0.977863774578125, 6168.124674371036, 1] = 
    1.1481358168342025*^-11
 
GetMainIncrement[300, 0.977863774578125, 6168.124674356536, 1] = 
    1.620552962113518*^-11
 
GetMainIncrement[300, 0.977863774578125, 6168.097815422621, 1] = 
    4.5380463164937206*^-8
 
GetMainIncrement[300, 0.977863774578125, 6168.097814655363, 1] = 
    4.53914266093636*^-8
 
GetMainIncrement[300, 0.977863774578125, 6166.0064058393755, 1] = 
    3.5797629126482175*^-6
 
GetMainIncrement[300, 0.977863774578125, 6166.006399070174, 1] = 
    3.579769431545551*^-6
 
GetMainIncrement[300, 0.977863774578125, 6100.000037824539, 1] = 
    0.00011655948737153116
 
GetMainIncrement[300, 0.977863774578125, 6100., 1] = 0.00011655955754784018
 
GetMainIncrement[300, 0.977863774578125, 6000., 1] = 0.00029314782654873083
 
GetMainIncrement[300, 0.9575845343222655, 6339.876452775501, 1] = 
    9.559334457364711*^-12
 
GetMainIncrement[300, 0.9575845343222655, 6339.876458041498, 1] = 
    -9.103137582383743*^-12
 
GetMainIncrement[1000, 1.019871624657849, 5795.662234804676, 1] = 
    6.092163703575511*^-10
 
GetMainIncrement[1000, 1.019871624657849, 5795.662238211542, 1] = 
    -5.6424100960093815*^-12
 
GetMainIncrement[1000, 1.019871624657849, 5782.83130210596, 1] = 
    0.000021448241756408433
 
GetMainIncrement[1000, 1.019871624657849, 5795.66260421192, 1] = 
    -6.118076277257349*^-10
 
GetMainIncrement[1000, 1.019871624657849, 5795.662634467083, 1] = 
    -5.070153102698302*^-11
 
GetMainIncrement[1000, 1.019871624657849, 5795.8781174288, 1] = 
    -3.6115610899400974*^-7
 
GetMainIncrement[1000, 1.019871624657849, 5835., 1] = -0.0000650234986187105
 
GetMainIncrement[1000, 1.019871624657849, 5770., 1] = 0.00004301136914421254
 
GetMainIncrement[1000, 1.019871653361161, 5795.661870923801, 1] = 
    1.2114509127846354*^-9
 
GetMainIncrement[1000, 1.019871653361161, 5795.661871358167, 1] = 
    -6.61474415281256*^-13
 
GetMainIncrement[1000, 1.019871653361161, 5795.66187616762, 1] = 
    -7.9855390962974*^-12
 
GetMainIncrement[1000, 1.019871653361161, 5795.663010012281, 1] = 
    -1.8906026060287132*^-9
 
GetMainIncrement[1000, 1.019871653361161, 5795.879141066581, 1] = 
    -3.622574050428178*^-7
 
GetMainIncrement[1000, 1.019871653361161, 5835., 1] = -0.00006502288231174155
 
GetMainIncrement[1000, 1.019871653361161, 5770., 1] = 0.0000430137882904145
 
GetMainIncrement[1000, 1.0198716546609234, 5795.661792573219, 1] = 
    -4.789291168239961*^-10
 
GetMainIncrement[1000, 1.0198716546609234, 5795.6618525146905, 1] = 
    -5.73005675514552*^-10
 
GetMainIncrement[1000, 1.0198716546609234, 5795.661776059326, 1] = 
    1.5786323134391479*^-10
 
GetMainIncrement[1000, 1.0198716546609234, 5795.661268653786, 1] = 
    1.0010983895157588*^-9
 
GetMainIncrement[1000, 1.0198716546609234, 5795.660779341894, 1] = 
    1.207244262890761*^-9
 
GetMainIncrement[1000, 1.0198716546609234, 5795.662283464867, 1] = 
    -2.503770864817562*^-9
 
GetMainIncrement[1000, 1.0198716546609234, 5795.878265478267, 1] = 
    -3.6200761857400584*^-7
 
GetMainIncrement[1000, 1.0198716546609234, 5835., 1] = -0.00006502470053655766
 
GetMainIncrement[1000, 1.0198716546609234, 5770., 1] = 0.000043012573028813786
 
GetMainIncrement[1000, 1.0198714490167915, 5795.663749289561, 1] = 
    -1.2865030809324635*^-9
 
GetMainIncrement[1000, 1.0198714490167915, 5795.663896944208, 1] = 
    -2.1414358970968383*^-9
 
GetMainIncrement[1000, 1.0198714490167915, 5795.663708089483, 1] = 
    5.975248658493179*^-10
 
GetMainIncrement[1000, 1.0198714490167915, 5795.664108859499, 1] = 
    -6.704870904631569*^-10
 
GetMainIncrement[1000, 1.0198714490167915, 5795.87987860704, 1] = 
    -3.6164703184314855*^-7
 
GetMainIncrement[1000, 1.0198714490167915, 5835., 1] = -0.00006502172684002962
 
GetMainIncrement[1000, 1.0198714490167915, 5770., 1] = 0.000043015060728899144
 
GetMainIncrement[1000, 1.0198717817559864, 5795.662382332867, 1] = 
    -2.4848713614088885*^-10
 
GetMainIncrement[1000, 1.0198717817559864, 5795.662331962911, 1] = 
    1.0456860190163073*^-9
 
GetMainIncrement[1000, 1.0198717817559864, 5795.6623954096485, 1] = 
    -2.7147547123978436*^-10
 
GetMainIncrement[1000, 1.0198717817559864, 5795.662268516172, 1] = 
    5.430342936251073*^-10
 
GetMainIncrement[1000, 1.0198717817559864, 5795.662499509494, 1] = 
    -4.4549009290816444*^-10
 
GetMainIncrement[1000, 1.0198717817559864, 5795.662047957593, 1] = 
    2.7297076514855127*^-9
 
GetMainIncrement[1000, 1.0198717817559864, 5795.662601053306, 1] = 
    -6.138495234580925*^-10
 
GetMainIncrement[1000, 1.0198717817559864, 5782.831846951944, 1] = 
    0.00002144669779366955
 
GetMainIncrement[1000, 1.0198717817559864, 5795.663693903886, 1] = 
    -1.8267076077411928*^-9
 
GetMainIncrement[1000, 1.0198717817559864, 5795.664072261121, 1] = 
    -6.330128249240575*^-10
 
GetMainIncrement[1000, 1.0198717817559864, 5795.878551738294, 1] = 
    -3.5946389862964853*^-7
 
GetMainIncrement[1000, 1.0198717817559864, 5835., 1] = -0.00006502345820175699
 
GetMainIncrement[1000, 1.0198717817559864, 5770., 1] = 0.000043012541765333795
 
GetMainIncrement[1000, 1.0198712433726598, 5795.662668090385, 1] = 
    -8.619332705255348*^-11
 
GetMainIncrement[1000, 1.0198712433726598, 5795.662701859981, 1] = 
    -1.4540617025867418*^-10
 
GetMainIncrement[1000, 1.0198712433726598, 5795.662722742793, 1] = 
    -1.781274552501138*^-10
 
GetMainIncrement[1000, 1.0198712433726598, 5795.663009080661, 1] = 
    -1.865589891757494*^-9
 
GetMainIncrement[1000, 1.0198712433726598, 5795.662634320789, 1] = 
    5.760998318611642*^-10
 
GetMainIncrement[1000, 1.0198712433726598, 5795.661884801044, 1] = 
    1.2132661553481035*^-9
 
GetMainIncrement[1000, 1.0198712433726598, 5795.661825822107, 1] = 
    1.008141406455814*^-10
 
GetMainIncrement[1000, 1.0198712433726598, 5795.661521387979, 1] = 
    6.04775683091946*^-10
 
GetMainIncrement[1000, 1.0198712433726598, 5795.663383840534, 1] = 
    -3.095092071999923*^-9
 
GetMainIncrement[1000, 1.0198712433726598, 5795.878866529794, 1] = 
    -3.6116637541972656*^-7
 
GetMainIncrement[1000, 1.0198712433726598, 5835., 1] = -0.00006502420062711162
 
GetMainIncrement[1000, 1.0198712433726598, 5770., 1] = 0.000043013902204986205
 
GetMainIncrement[1000, 1.0198721144951812, 5795.663155573326, 1] = 
    8.713463298467986*^-10
 
GetMainIncrement[1000, 1.0198721144951812, 5795.663111086151, 1] = 
    9.427227691245852*^-10
 
GetMainIncrement[1000, 1.0198721144951812, 5795.663076650395, 1] = 
    3.958400526576835*^-10
 
GetMainIncrement[1000, 1.0198721144951812, 5795.6632000605, 1] = 
    -1.022762805463805*^-9
 
GetMainIncrement[1000, 1.0198721144951812, 5795.663328420604, 1] = 
    -6.27427575904593*^-10
 
GetMainIncrement[1000, 1.0198721144951812, 5795.66295324029, 1] = 
    1.206463701308052*^-9
 
GetMainIncrement[1000, 1.0198721144951812, 5795.66373385105, 1] = 
    -1.3037387642042412*^-9
 
GetMainIncrement[1000, 1.0198721144951812, 5795.8803659024215, 1] = 
    -3.631012665265056*^-7
 
GetMainIncrement[1000, 1.0198721144951812, 5835., 1] = -0.00006502034447820034
 
GetMainIncrement[1000, 1.0198721144951812, 5770., 1] = 0.00004301549196497842
 
GetMainIncrement[1000, 1.0198707049893332, 5795.663426516418, 1] = 
    -1.0657318674474683*^-10
 
GetMainIncrement[1000, 1.0198707049893332, 5795.6636418645485, 1] = 
    -2.2843651898877366*^-9
 
GetMainIncrement[1000, 1.0198707049893332, 5795.663370057647, 1] = 
    5.989021274624504*^-10
 
GetMainIncrement[1000, 1.0198707049893332, 5795.664487486501, 1] = 
    -1.8632521191089615*^-9
 
GetMainIncrement[1000, 1.0198707049893332, 5795.8795406436175, 1] = 
    -3.604372168986074*^-7
 
GetMainIncrement[1000, 1.0198707049893332, 5835., 1] = -0.00006502251794041732
 
GetMainIncrement[1000, 1.0198707049893332, 5770., 1] = 0.0000430146507345355
 
GetMainIncrement[1000, 1.0198715761118546, 5795.6622385149285, 1] = 
    6.028394585551235*^-10
 
GetMainIncrement[1000, 1.0198715761118546, 5795.662246071256, 1] = 
    -1.2543672006583469*^-11
 
GetMainIncrement[1000, 1.0198715761118546, 5782.831666760965, 1] = 
    0.000021447035465259757
 
GetMainIncrement[1000, 1.0198715761118546, 5795.66333352193, 1] = 
    -1.8177350080190611*^-9
 
GetMainIncrement[1000, 1.0198715761118546, 5795.663729798309, 1] = 
    -6.629697558757685*^-10
 
GetMainIncrement[1000, 1.0198715761118546, 5795.878853102017, 1] = 
    -3.6055837036873034*^-7
 
GetMainIncrement[1000, 1.0198715761118546, 5835., 1] = -0.000065024115059356
 
GetMainIncrement[1000, 1.0198715761118546, 5770., 1] = 0.00004301380851890377
 
GetMainIncrement[1000, 1.0198749689755024, 5795.662651717812, 1] = 
    9.328294688884693*^-10
 
GetMainIncrement[1000, 1.0198749689755024, 5795.662695007339, 1] = 
    -3.501304368506465*^-10
 
GetMainIncrement[1000, 1.0198749689755024, 5795.662608428285, 1] = 
    1.00718373310276*^-9
 
GetMainIncrement[1000, 1.0198749689755024, 5795.662730011983, 1] = 
    -4.072129018939342*^-10
 
GetMainIncrement[1000, 1.0198749689755024, 5795.662486844589, 1] = 
    1.2126138059577766*^-9
 
GetMainIncrement[1000, 1.0198749689755024, 5782.831426303206, 1] = 
    0.00002144628573339548
 
GetMainIncrement[1000, 1.0198749689755024, 5795.662852606412, 1] = 
    -6.113471727822468*^-10
 
GetMainIncrement[1000, 1.0198749689755024, 5795.662853175561, 1] = 
    -9.498612698255124*^-13
 
GetMainIncrement[1000, 1.0198749689755024, 5795.663611639421, 1] = 
    -1.2667611642129149*^-9
 
GetMainIncrement[1000, 1.0198749689755024, 5795.878809653728, 1] = 
    -3.6067275710629327*^-7
 
GetMainIncrement[1000, 1.0198749689755024, 5835., 1] = -0.00006502204422116555
 
GetMainIncrement[1000, 1.0198749689755024, 5770., 1] = 0.00004301231866417968
 
GetMainIncrement[1000, 1.019869295483485, 5795.662623678697, 1] = 
    1.9183984024956227*^-9
 
GetMainIncrement[1000, 1.019869295483485, 5795.662648330951, 1] = 
    -5.470530067488858*^-10
 
GetMainIncrement[1000, 1.019869295483485, 5795.662585446828, 1] = 
    1.988400807382911*^-9
 
GetMainIncrement[1000, 1.019869295483485, 5795.662393640466, 1] = 
    2.3023134589929533*^-9
 
GetMainIncrement[1000, 1.019869295483485, 5795.6619546073825, 1] = 
    1.8220395248314978*^-9
 
GetMainIncrement[1000, 1.019869295483485, 5795.661257512094, 1] = 
    1.158349296256217*^-9
 
GetMainIncrement[1000, 1.019869295483485, 5795.662686809197, 1] = 
    -1.2166851102323904*^-9
 
GetMainIncrement[1000, 1.019869295483485, 5795.664182585505, 1] = 
    -2.4899241821602124*^-9
 
GetMainIncrement[1000, 1.019869295483485, 5795.879663342682, 1] = 
    -3.6116634559844765*^-7
 
GetMainIncrement[1000, 1.019869295483485, 5835., 1] = -0.00006502347558088268
 
GetMainIncrement[1000, 1.019869295483485, 5770., 1] = 0.00004301562310531842
 
GetMainIncrement[1000, 1.019878218274693, 5795.66233584178, 1] = 
    6.692226424306587*^-10
 
GetMainIncrement[1000, 1.019878218274693, 5795.6623023984375, 1] = 
    1.1598763332979541*^-10
 
GetMainIncrement[1000, 1.019878218274693, 5795.662369285122, 1] = 
    -5.977626921552757*^-10
 
GetMainIncrement[1000, 1.019878218274693, 5795.66228567186, 1] = 
    1.4948451469167477*^-10
 
GetMainIncrement[1000, 1.019878218274693, 5795.662009492818, 1] = 
    6.073071304201795*^-10
 
GetMainIncrement[1000, 1.019878218274693, 5795.663151808188, 1] = 
    -1.904600584572689*^-9
 
GetMainIncrement[1000, 1.019878218274693, 5795.879429685652, 1] = 
    -3.624921788119282*^-7
 
GetMainIncrement[1000, 1.019878218274693, 5835., 1] = -0.00006502000684423519
 
GetMainIncrement[1000, 1.019878218274693, 5770., 1] = 0.000043012683142526896
 
GetMainIncrement[1000, 1.0198866848915549, 5795.662776718187, 1] = 
    7.867406068794418*^-11
 
GetMainIncrement[1000, 1.0198866848915549, 5795.6628190969195, 1] = 
    -6.005826464269967*^-10
 
GetMainIncrement[1000, 1.0198866848915549, 5795.662901453941, 1] = 
    -7.369140810666855*^-10
 
GetMainIncrement[1000, 1.0198866848915549, 5795.663157804104, 1] = 
    -1.1633587823682784*^-9
 
GetMainIncrement[1000, 1.0198866848915549, 5795.662734339456, 1] = 
    7.583927500890786*^-10
 
GetMainIncrement[1000, 1.0198866848915549, 5795.662460655692, 1] = 
    6.037641196325388*^-10
 
GetMainIncrement[1000, 1.0198866848915549, 5795.663581268753, 1] = 
    -1.8683809110855813*^-9
 
GetMainIncrement[1000, 1.0198866848915549, 5795.87835619042, 1] = 
    -3.599437474598882*^-7
 
GetMainIncrement[1000, 1.0198866848915549, 5835., 1] = -0.00006502026476820497
 
GetMainIncrement[1000, 1.0198866848915549, 5770., 1] = 0.000043009889345575707
 
GetMainIncrement[1000, 1.019863324720898, 5795.662938951876, 1] = 
    -5.730371130949555*^-11
 
GetMainIncrement[1000, 1.019863324720898, 5795.6630325307415, 1] = 
    -2.1205066251094723*^-10
 
GetMainIncrement[1000, 1.019863324720898, 5795.663099826777, 1] = 
    -3.2498054196154237*^-10
 
GetMainIncrement[1000, 1.019863324720898, 5795.662907192218, 1] = 
    6.052746001617131*^-10
 
GetMainIncrement[1000, 1.019863324720898, 5795.663319207383, 1] = 
    -6.893130147624452*^-10
 
GetMainIncrement[1000, 1.019863324720898, 5795.879512630627, 1] = 
    -3.623812238876434*^-7
 
GetMainIncrement[1000, 1.019863324720898, 5835., 1] = -0.00006502557456972121
 
GetMainIncrement[1000, 1.019863324720898, 5770., 1] = 0.00004301659543506425
 
GetMainIncrement[1000, 1.0198238769202361, 5795.6627226505425, 1] = 
    -1.2125322170473442*^-9
 
GetMainIncrement[1000, 1.0198238769202361, 5795.662720591201, 1] = 
    3.434859276348068*^-12
 
GetMainIncrement[1000, 1.0198238769202361, 5795.662407890853, 1] = 
    5.249954475734482*^-10
 
GetMainIncrement[1000, 1.0198238769202361, 5795.878497340946, 1] = 
    -3.622695393674095*^-7
 
GetMainIncrement[1000, 1.0198238769202361, 5835., 1] = -0.00006503874176831859
 
GetMainIncrement[1000, 1.0198238769202361, 5770., 1] = 0.0000430225014764429
 
GetMainIncrement[1000, 1.0198729856177027, 5795.662265030503, 1] = 
    1.0852494900187668*^-9
 
GetMainIncrement[1000, 1.0198729856177027, 5795.662283828935, 1] = 
    -1.5609087367909544*^-10
 
GetMainIncrement[1000, 1.0198729856177027, 5795.662438528959, 1] = 
    -1.0200951641416633*^-9
 
GetMainIncrement[1000, 1.0198729856177027, 5795.662192514481, 1] = 
    6.021294075457062*^-10
 
GetMainIncrement[1000, 1.0198729856177027, 5795.662967096586, 1] = 
    -1.2936885425494492*^-9
 
GetMainIncrement[1000, 1.0198729856177027, 5795.879024741185, 1] = 
    -3.62137156649327*^-7
 
GetMainIncrement[1000, 1.0198729856177027, 5835., 1] = -0.00006502376081248015
 
GetMainIncrement[1000, 1.0198729856177027, 5770., 1] = 0.000043014048185107656
 
GetMainIncrement[1000, 1.019807520095651, 5795.663033410593, 1] = 
    1.7897164329152507*^-10
 
GetMainIncrement[1000, 1.019807520095651, 5795.66305526977, 1] = 
    -4.6525623720945937*^-10
 
GetMainIncrement[1000, 1.019807520095651, 5795.662962510114, 1] = 
    1.5090637041836538*^-9
 
GetMainIncrement[1000, 1.019807520095651, 5795.662776990803, 1] = 
    6.085440485266392*^-10
 
GetMainIncrement[1000, 1.019807520095651, 5795.66277632979, 1] = 
    1.0293010069490141*^-12
 
GetMainIncrement[1000, 1.019807520095651, 5795.6627686699985, 1] = 
    1.2899555121986817*^-11
 
GetMainIncrement[1000, 1.019807520095651, 5795.6627362654135, 1] = 
    6.621022735067358*^-11
 
GetMainIncrement[1000, 1.019807520095651, 5795.662324501402, 1] = 
    7.511229519494098*^-10
 
GetMainIncrement[1000, 1.019807520095651, 5795.662063666928, 1] = 
    5.791669019372669*^-10
 
GetMainIncrement[1000, 1.019807520095651, 5795.587442763054, 1] = 
    1.2583548942532745*^-7
 
GetMainIncrement[1000, 1.019807520095651, 5795.663148029425, 1] = 
    -1.828593310476104*^-9
 
GetMainIncrement[1000, 1.019807520095651, 5795.664260454738, 1] = 
    -1.8554618115524746*^-9
 
GetMainIncrement[1000, 1.019807520095651, 5795.878903990652, 1] = 
    -3.598531680331572*^-7
 
GetMainIncrement[1000, 1.019807520095651, 5835., 1] = -0.00006504312585404112
 
GetMainIncrement[1000, 1.019807520095651, 5770., 1] = 0.00004302652484036926
 
GetMainIncrement[1000, 1.0190042338333642, 5795.73219136385, 1] = 
    8.128975922570229*^-11
 
GetMainIncrement[1000, 1.0190042338333642, 5795.732060644848, 1] = 
    1.514240308364773*^-9
 
GetMainIncrement[1000, 1.0190042338333642, 5795.731877086682, 1] = 
    6.06902749247535*^-10
 
GetMainIncrement[1000, 1.0190042338333642, 5795.73175670673, 1] = 
    2.0070698427624833*^-10
 
GetMainIncrement[1000, 1.0190042338333642, 5795.732244203014, 1] = 
    -6.120854030463837*^-10
 
GetMainIncrement[1000, 1.0190042338333642, 5795.733715921653, 1] = 
    -2.4599035970213285*^-9
 
GetMainIncrement[1000, 1.0190042338333642, 5795.947899620838, 1] = 
    -3.6043683726967547*^-7
 
GetMainIncrement[1000, 1.0190042338333642, 5835., 1] = -0.00006517596128790399
 
GetMainIncrement[1000, 1.0190042338333642, 5770., 1] = 0.00004330571940485458
 
GetMainIncrement[1000, 1.0175423725280088, 5796.2225266930855, 1] = 
    3.7109304058737403*^-10
 
GetMainIncrement[1000, 1.0175423725280088, 5796.222436508013, 1] = 
    1.1288244655829156*^-9
 
GetMainIncrement[1000, 1.0175423725280088, 5796.222548677501, 1] = 
    -2.7517355340417153*^-10
 
GetMainIncrement[1000, 1.0175423725280088, 5796.222686549673, 1] = 
    -5.078761206077712*^-10
 
GetMainIncrement[1000, 1.0175423725280088, 5796.2223839474955, 1] = 
    6.068116233695327*^-10
 
GetMainIncrement[1000, 1.0175423725280088, 5796.224248085724, 1] = 
    -3.131366185216123*^-9
 
GetMainIncrement[1000, 1.0175423725280088, 5796.4390475471955, 1] = 
    -3.639245514231148*^-7
 
GetMainIncrement[1000, 1.0175423725280088, 5835., 1] = -0.00006480121643707138
 
GetMainIncrement[1000, 1.0175423725280088, 5770., 1] = 0.00004443050115509321
 
GetMainIncrement[1000, 1.0199077138069124, 5795.662728805899, 1] = 
    3.3462765009286983*^-10
 
GetMainIncrement[1000, 1.0199077138069124, 5795.6626558664175, 1] = 
    1.0651255270165876*^-9
 
GetMainIncrement[1000, 1.0199077138069124, 5795.662749598741, 1] = 
    -3.036350986992172*^-10
 
GetMainIncrement[1000, 1.0199077138069124, 5795.662838146771, 1] = 
    -4.5027979528853863*^-10
 
GetMainIncrement[1000, 1.0199077138069124, 5795.663114159448, 1] = 
    -1.5150348418846958*^-9
 
GetMainIncrement[1000, 1.0199077138069124, 5795.663297911633, 1] = 
    -6.084893337625612*^-10
 
GetMainIncrement[1000, 1.0199077138069124, 5795.662562134093, 1] = 
    1.8280138625416994*^-9
 
GetMainIncrement[1000, 1.0199077138069124, 5795.664775938655, 1] = 
    -3.672107036969811*^-9
 
GetMainIncrement[1000, 1.0199077138069124, 5795.87942472353, 1] = 
    -3.5968637805375997*^-7
 
GetMainIncrement[1000, 1.0199077138069124, 5835., 1] = -0.00006501052120268121
 
GetMainIncrement[1000, 1.0199077138069124, 5770., 1] = 0.00004300639440530262
 
GetMainIncrement[1000, 1.0203272187099097, 5795.6934741720315, 1] = 
    -4.040355101539179*^-10
 
GetMainIncrement[1000, 1.0203272187099097, 5795.693528607456, 1] = 
    -4.932184316725537*^-10
 
GetMainIncrement[1000, 1.0203272187099097, 5795.693419736607, 1] = 
    9.000231537153493*^-10
 
GetMainIncrement[1000, 1.0203272187099097, 5795.692888248786, 1] = 
    1.7857101566339352*^-9
 
GetMainIncrement[1000, 1.0203272187099097, 5795.693603150696, 1] = 
    -6.162406495464554*^-10
 
GetMainIncrement[1000, 1.0203272187099097, 5795.694369051909, 1] = 
    -1.276432853687605*^-9
 
GetMainIncrement[1000, 1.0203272187099097, 5795.910038529765, 1] = 
    -3.6069540926411204*^-7
 
GetMainIncrement[1000, 1.0203272187099097, 5835., 1] = -0.00006483164917132893
 
GetMainIncrement[1000, 1.0203272187099097, 5770., 1] = 0.000042972427313760854
 
GetMainIncrement[1000, 1.01371516994375, 5799.674004734524, 1] = 
    8.68442722167526*^-10
 
GetMainIncrement[1000, 1.01371516994375, 5799.673913084092, 1] = 
    2.2415533945733786*^-9
 
GetMainIncrement[1000, 1.01371516994375, 5799.674019902546, 1] = 
    -3.7097404296149335*^-10
 
GetMainIncrement[1000, 1.01371516994375, 5799.674233539454, 1] = 
    -7.383833270968631*^-10
 
GetMainIncrement[1000, 1.01371516994375, 5799.674308350592, 1] = 
    -2.600592995073356*^-10
 
GetMainIncrement[1000, 1.01371516994375, 5799.673806265638, 1] = 
    1.8142138989691138*^-9
 
GetMainIncrement[1000, 1.01371516994375, 5799.674762226177, 1] = 
    -1.64001607768098*^-9
 
GetMainIncrement[1000, 1.01371516994375, 5799.894101363465, 1] = 
    -3.779193276072859*^-7
 
GetMainIncrement[1000, 1.01371516994375, 5835., 1] = -0.00006004333575689709
 
GetMainIncrement[1000, 1.01371516994375, 5770., 1] = 0.00005112934392880692
 
GetMainIncrement[1000, 1.0110112712429689, 5803.928571228778, 1] = 
    -6.96270877528749*^-10
 
GetMainIncrement[1000, 1.0110112712429689, 5803.9286278705, 1] = 
    -2.6178712864469676*^-9
 
GetMainIncrement[1000, 1.0110112712429689, 5803.928559463163, 1] = 
    5.437840932344439*^-10
 
GetMainIncrement[1000, 1.0110112712429689, 5803.928696277837, 1] = 
    -2.129315901551465*^-9
 
GetMainIncrement[1000, 1.0110112712429689, 5803.928871816094, 1] = 
    -6.070076714491043*^-10
 
GetMainIncrement[1000, 1.0110112712429689, 5804.037776585063, 1] = 
    -1.8848699949675172*^-7
 
GetMainIncrement[1000, 1.0110112712429689, 5803.928520381646, 1] = 
    6.082453982077544*^-10
 
GetMainIncrement[1000, 1.0110112712429689, 5803.928437179493, 1] = 
    1.4399768736347157*^-10
 
GetMainIncrement[1000, 1.0110112712429689, 5804.147032788479, 1] = 
    -3.7817869016409445*^-7
 
GetMainIncrement[1000, 1.0110112712429689, 5835., 1] = -0.00005341570385443822
 
GetMainIncrement[1000, 1.0110112712429689, 5770., 1] = 0.000059118715500922466
 
GetMainIncrement[1000, 1.010625, 5804.6542790659, 1] = 
    -4.2964188297031115*^-10
 
GetMainIncrement[1000, 1.010625, 5804.654267645568, 1] = 
    2.0048953812510251*^-10
 
GetMainIncrement[1000, 1.010625, 5804.654354890694, 1] = 
    -1.7805182148545456*^-9
 
GetMainIncrement[1000, 1.010625, 5804.6542243381555, 1] = 
    8.838274496899548*^-10
 
GetMainIncrement[1000, 1.010625, 5804.654466404585, 1] = 
    -7.549377356027643*^-10
 
GetMainIncrement[1000, 1.010625, 5804.655855932348, 1] = 
    -1.9378286085698117*^-9
 
GetMainIncrement[1000, 1.010625, 5804.654028537724, 1] = 
    6.106469783767523*^-10
 
GetMainIncrement[1000, 1.010625, 5804.653593082894, 1] = 
    7.559262542772326*^-10
 
GetMainIncrement[1000, 1.010625, 5804.872935887797, 1] = 
    -3.8001143108060305*^-7
 
GetMainIncrement[1000, 1.010625, 5835., 1] = -0.000052249245156894304
 
GetMainIncrement[1000, 1.010625, 5770., 1] = 0.0000604799913378925
 
GetMainIncrement[1000, 1.01, 5805.892554432566, 1] = 8.567055175212829*^-10
 
GetMainIncrement[1000, 1.01, 5805.892534000343, 1] = 2.822562278169535*^-10
 
GetMainIncrement[1000, 1.01, 5805.892466068311, 1] = 1.0118126626395283*^-9
 
GetMainIncrement[1000, 1.01, 5805.892330204245, 1] = 6.361579475412616*^-10
 
GetMainIncrement[1000, 1.01, 5805.892318777222, 1] = 4.441542917959715*^-11
 
GetMainIncrement[1000, 1.01, 5805.891992006463, 1] = 1.2188607087737719*^-9
 
GetMainIncrement[1000, 1.01, 5805.892601932376, 1] = -1.0561737326055974*^-9
 
GetMainIncrement[1000, 1.01, 5806.107920525712, 1] = -3.7388829282315955*^-7
 
GetMainIncrement[1000, 1.01, 5835., 1] = -0.00005024637051261864
 
GetMainIncrement[1000, 1.01, 5770., 1] = 0.00006279547842133506
 
GetMainIncrement[n_, k1_, R1_, num_:1] := GetMainIncrement[n, k1, R1, num] = 
     (Print[{n, k1, R1}]; First[Take[Sort[Im /@ GetIncrements[n, k1, R1]], 
        {num}]])
 
GetIncrements[n_, k1_, R1_] := Eigenvalues[(Inverse[Last[#1]] . First[#1] & )[
      N[FiniteMatrix4Eigen[n, 5, k -> k1, R -> R1]]]]
 
FiniteMatrix4Eigen[n_, sample_:5, subst___] := 
    Block[{h = H/n, krseq, krs, unk, unkmain, unkfict, i, sm, s, order, lhs, 
      rhs, \[Omega]}, sm = Max[sample, 5]; unk = Table[Subscript[f, i + 1/2], 
        {i, 0 - (sm - 1)/2, n + (sm - 1)/2 - 1}]; 
      unkmain = Table[Subscript[f, i], {i, 1/2, n - 1/2}]; 
      unkfict = Complement[unk, unkmain]; dersam[order_, s_] := 
       Table[Subscript[f, j], {j, i - (s - 1)/2, i + (s - 1)/2}] . 
         NDCoefficientList[order, s]/h^order; 
      rhs = -D[eqOZ[\[Omega], k, R], \[Omega]] /. {z -> i*h, 
          f[z_] -> Subscript[f, i], Derivative[2][f][z_] -> dersam[2, sm], 
          Derivative[4][f][z_] -> dersam[4, sm]} /. {subst}; 
      lhs = Simplify[eqOZ[\[Omega], k, R] - \[Omega]*D[eqOZ[\[Omega], k, R], 
             \[Omega]]] /. {z -> i*h, f[z_] -> Subscript[f, i], 
          Derivative[2][f][z_] -> dersam[2, sm], Derivative[4][f][z_] -> 
           dersam[4, sm]} /. {subst}; virfict = 
       First[Solve[Thread[{dersam[0, sm - 1] /. i -> 0, dersam[1, sm - 1] /. 
             i -> 0, dersam[1, sm - 1] /. i -> n, dersam[0, sm - 1] /. 
             i -> n} == 0], unkfict]]; fict = unkfict /. virfict; 
      rhs = (Coefficient[#1, unkmain] & ) /@ 
        (Table[rhs, {i, 1/2, n - 1/2}] /. virfict); 
      lhs = (Coefficient[#1, unkmain] & ) /@ 
        (Table[lhs, {i, 1/2, n - 1/2}] /. virfict); Return[{lhs, rhs}]; ]
 
H = 2
 
NDCoefficientList[order_, sample_, shift_:0, add_:0, (opts___)?OptionQ] := 
    Block[{unk, viv = ShowSeries /. Flatten[{opts}] /. 
        Options[NDCoefficientList], appr, lhs, rhs, sols, i, h}, 
     unk = Array[a, sample]; appr = Series[Table[f[x + (i - shift)*h], 
          {i, -(sample - 1)/2, (sample - 1)/2, 1}] . unk, 
        {h, 0, sample + add - 1}]; 
      lhs = Drop[Simplify[(CoefficientList[appr, h] /. {f -> (E^#1 & )})/
          E^x], -add]; rhs = Table[KroneckerDelta[i, order], 
        {i, 0, sample - 1}]; sols = First[Solve[Thread[lhs == rhs], unk]]; 
      If[order >= sample, Message[NDCoefficientList::ShortSample]]; 
      If[viv, Print[appr /. sols]]; Return[unk /. sols]; ]
 
Options[NDCoefficientList] = {ShowSeries -> False}
 
eqOZ[\[Omega]_, k_, R_] := (v[z] - \[Omega]/k)*
      (Derivative[1][Derivative[1][f]][z] - k^2*f[z]) - 
     Derivative[1][Derivative[1][v]][z]*f[z] - 
     (I/(k*R))*(D[f[z], {z, 4}] - 2*k^2*Derivative[1][Derivative[1][f]][z] + 
       k^4*f[z])
 
v[z_] := z*(H - z)*(4/H^2)
 
Attributes[Derivative] = {NHoldAll, ReadProtected}
